home *** CD-ROM | disk | FTP | other *** search
/ Workbench Add-On / Workbench Add-On - Volume 1.iso / BBS-Archive / Dev / tri13usr.lha / Triton / Install / Install Triton next >
Text File  |  1995-06-28  |  4KB  |  115 lines
  1.  
  2. ; Install script for Triton (Workbench 2.0)
  3.  
  4. (set @default-dest "")
  5.  
  6. (set tritonlib37 "/libs37/triton.library")
  7. (set tritonlib39 "/libs39/triton.library")
  8. (set tritonprefs "/Prefs/Triton")
  9. (set trPrefsUpdate "/trPrefsUpdate")
  10.  
  11. ;=============================================================================
  12. ; English strings
  13.  
  14. (set default_lang 4)
  15.  
  16. (set #bad-kick         "You must be using Kickstart 2.04+ to run Triton.")
  17. (set #ask-kick39 (cat     "You are running OS3.0 or higher. Do you want to install a special OS3.0+ "
  18.             "version of triton.library?"))
  19. (set #help-kick39 (cat     "The OS3.0+ version of triton.library is shorter and faster than the "
  20.             "general OS2.04+ version. It cannot be used with OS versions below 3.0."))
  21. (set #ask-prefs     "Do you want to install the Triton Preferences editor?")
  22. (set #help-prefs (cat     "The Triton Preferences editor allows you to change the look and feel "
  23.             "of all Triton applications' GUIs to fit your personal taste."))
  24. (set #ask-makedir1     "Do you want to create the directory\n\nenv:Triton ?")
  25. (set #ask-makedir2     "Do you want to create the directory\n\nenvarc:Triton ?")
  26. (set #help-makedir (cat    "Triton needs the directories env:Triton and envarc:Triton to save it's "
  27.             "configuration files. Without these directories you cannot use window "
  28.             "position remembering or the Triton Preferences editor. You may create "
  29.             "and delete these directories at any time with the Preferences editor.\n\n"
  30.             @makedir-help))
  31. (set #ask-updateprefs     "\nDo you want to update the preferences files?")
  32. (set #help-updateprefs (cat "You have to update the Triton Preferences settings for your new "
  33.             "Triton version. This will be done automatically. You cannot use the new "
  34.             "settings files with older Triton versions."))
  35. (set #copying-triton    "Copying triton.library to Libs:...")
  36. (set #copying-prefs    "Copying Triton Preferences editor to sys:Prefs...")
  37. (set #install-msg (cat    "\n\nTriton installation script.\n"
  38.             "This script installs Triton on your Amiga.\n\n"
  39.             "Read the 'Distribution' file for\n"
  40.             "more information on the distribution\n"
  41.             "and commercial usage of Triton.\n\n"
  42.             "Triton © 1993-1995 Stefan Zeiger.\n"
  43.             "All rights reserved."))
  44.  
  45. ;=============================================================================
  46. ; make sure we are running under a 2.04+ ROM
  47.  
  48. (if (< (/ (getversion) 65536) 37)
  49. (
  50.     (abort #bad-kick)
  51. ))
  52.  
  53. ;=============================================================================
  54.  
  55. (message #install-msg)
  56.  
  57. (if    (< (/ (getversion) 65536) 39)
  58.     (copylib
  59.         (prompt "\n" #copying-triton)
  60.         (help @copylib-help)
  61.         (source tritonlib37)
  62.         (dest "Libs:")
  63.         (confirm)
  64.     )
  65.     (if    (askbool (prompt "\n" #ask-kick39) (help #help-kick39))
  66.         (copylib
  67.             (prompt "\n" #copying-triton)
  68.             (help @copylib-help)
  69.             (source tritonlib39)
  70.             (dest "Libs:")
  71.             (confirm)
  72.         )
  73.         (copylib
  74.             (prompt "\n" #copying-triton)
  75.             (help @copylib-help)
  76.             (source tritonlib37)
  77.             (dest "Libs:")
  78.             (confirm)
  79.         )
  80.     )
  81. )
  82.  
  83. (if    (askbool (prompt "\n" #ask-prefs) (help #help-prefs))
  84.     (
  85.         (copyfiles
  86.             (prompt "\n" #copying-prefs)
  87.             (source tritonprefs)
  88.             (dest "sys:Prefs/")
  89.             (infos)
  90.             (files)
  91.         )
  92.         (if    (= (exists ("env:Triton") (noreq)) 0)
  93.             (
  94.                 (makedir
  95.                     ("env:Triton")
  96.                     (confirm)
  97.                     (prompt "\n" #ask-makedir1)
  98.                     (help #help-makedir)
  99.                 )
  100.                 (makedir
  101.                     ("envarc:Triton")
  102.                     (confirm)
  103.                     (prompt "\n" #ask-makedir2)
  104.                     (help #help-makedir)
  105.                 )
  106.             )
  107.             (run trPrefsUpdate
  108.                 (prompt #ask-updateprefs)
  109.                 (help #help-updateprefs)
  110.                 (confirm)
  111.             )
  112.         )
  113.     )
  114. )
  115.